home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / h / highspeedpascalv2.0b.dms / highspeedpascalv2.0b.adf / Interface / Parallel.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  983b  |  58 lines
  1. Unit Parallel;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tIOPArray = Record
  8.           PTermArray0: LongInt;
  9.           PTermArray1: LongInt;
  10.         End;
  11.  
  12.   tIOExtPar = Record
  13.           IOPar: tIOStdReq;
  14.           io_PExtFlags: LongInt;
  15.           io_Status: ShortInt;
  16.           io_ParFlags: ShortInt;
  17.           io_PTermArray: tIOPArray;
  18.         End;
  19.  
  20.  
  21.  
  22. Const
  23.   ParErr_PortReset = $6;
  24.   IOPARB_ABORT = $5;
  25.   IOPARF_ABORT = $20;
  26.   IOPTB_PARBUSY = $0;
  27.   PARB_SHARED = $5;
  28.   IOPTF_PARBUSY = $1;
  29.   PARF_SHARED = $20;
  30.   IOPTB_PARSEL = $2;
  31.   PARB_RAD_BOOGIE = $3;
  32.   IOPTF_PARSEL = $4;
  33.   PARF_RAD_BOOGIE = $8;
  34.   PDCMD_SETPARAMS = $A;
  35.   ParErr_BufTooBig = $2;
  36.   PDCMD_QUERY = $9;
  37.   ParErr_LineErr = $4;
  38.   IOPTB_RWDIR = $3;
  39.   IOPTF_RWDIR = $8;
  40.   ParErr_InvParam = $3;
  41.   PARALLELNAME = 'parallel.device';
  42.   ParErr_InitErr = $7;
  43.   IOPARB_ACTIVE = $4;
  44.   ParErr_DevBusy = $1;
  45.   ParErr_NotOpen = $5;
  46.   IOPARF_ACTIVE = $10;
  47.   IOPARB_QUEUED = $6;
  48.   PARB_EOFMODE = $1;
  49.   IOPTB_PAPEROUT = $1;
  50.   IOPARF_QUEUED = $40;
  51.   PARF_EOFMODE = $2;
  52.   IOPTF_PAPEROUT = $2;
  53.  
  54.  
  55.  
  56.  
  57. End.
  58.